home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 3-Pak 2 - Disc 2
/
Infomagic - Windows 3-Pak Volume 2 (Disc 2 of 3).iso
/
Telnet-Clients
/
secmail.exe
/
_setup.1
/
SecureMail.exe
/
0
/
RCDATA
/
TCONTACTFRM
/
TCONTACTFRM.txt
< prev
Wrap
Text File
|
1998-11-20
|
46KB
|
1,393 lines
object ContactFrm: TContactFrm
Left = 152
Top = 115
BorderIcons = []
BorderStyle = bsSingle
Caption = 'Contact Information'
ClientHeight = 376
ClientWidth = 566
Color = clSilver
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
Position = poScreenCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Bevel6: TBevel
Left = 11
Top = 75
Width = 533
Height = 13
Shape = bsTopLine
end
object PageControl1: TPageControl
Left = 0
Top = 34
Width = 566
Height = 342
HelpContext = 98
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
HelpContext = 95
Caption = '&General'
object Label1: TLabel
Left = 41
Top = 36
Width = 47
Height = 13
Caption = '&Company:'
FocusControl = Company
end
object Label2: TLabel
Left = 298
Top = 15
Width = 23
Height = 13
Caption = '&Title:'
FocusControl = Title
end
object Label3: TLabel
Left = 284
Top = 38
Width = 37
Height = 13
Caption = '&Display:'
FocusControl = Display
end
object Bevel1: TBevel
Left = 6
Top = 55
Width = 545
Height = 10
Shape = bsBottomLine
end
object Label4: TLabel
Left = 287
Top = 81
Width = 34
Height = 13
Caption = 'Phone:'
end
object Bevel2: TBevel
Left = 7
Top = 170
Width = 545
Height = 10
Shape = bsBottomLine
end
object Label5: TLabel
Left = 276
Top = 191
Width = 54
Height = 13
Caption = '&Web Page:'
FocusControl = WebSite
end
object Bevel3: TBevel
Left = 8
Top = 209
Width = 545
Height = 10
Shape = bsTopLine
end
object Label17: TLabel
Left = 39
Top = 14
Width = 50
Height = 13
Caption = 'Full Name:'
end
object Label18: TLabel
Left = 48
Top = 76
Width = 41
Height = 13
Caption = 'Address:'
end
object Name: TEdit
Left = 94
Top = 8
Width = 174
Height = 21
Hint = 'The Person'#39's Name Of This Contact'
TabOrder = 0
OnChange = NameChange
end
object Company: TEdit
Left = 94
Top = 31
Width = 174
Height = 21
Hint = 'Enter Company Name'
TabOrder = 1
OnChange = CompanyChange
end
object Title: TEdit
Left = 325
Top = 8
Width = 225
Height = 21
Hint = 'Title Used By This Contact'
TabOrder = 2
OnChange = TitleChange
end
object Display: TComboBox
Left = 325
Top = 32
Width = 225
Height = 21
Hint = 'How This Contact Will Be Displayed'
ItemHeight = 13
TabOrder = 3
OnChange = DisplayChange
end
object Address: TMemo
Left = 95
Top = 74
Width = 174
Height = 72
Hint = 'Address'
TabOrder = 5
OnChange = AddressChange
end
object AddressType: TComboBox
Left = 7
Top = 97
Width = 83
Height = 21
Hint = 'Address Selection'
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Business'
'Home'
'Other')
TabOrder = 4
OnChange = AddressTypeChange
end
object PhoneType1: TComboBox
Left = 325
Top = 74
Width = 97
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Cellular'
'Fax'
'Home'
'Home Fax'
'ISDN'
'Modem'
'Msg'
'Pager'
'Video'
'Work')
TabOrder = 7
OnChange = PhoneType1Change
end
object Phone1: TEdit
Left = 426
Top = 74
Width = 124
Height = 21
TabOrder = 8
OnChange = Phone1Change
end
object PhoneType2: TComboBox
Left = 325
Top = 98
Width = 97
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Cellular'
'Fax'
'Home'
'ISDN'
'Modem'
'Msg'
'Pager'
'Video'
'Work')
Sorted = True
TabOrder = 9
OnChange = PhoneType2Change
end
object Phone2: TEdit
Left = 426
Top = 98
Width = 124
Height = 21
TabOrder = 10
OnChange = Phone2Change
end
object PhoneType3: TComboBox
Left = 325
Top = 122
Width = 97
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Cellular'
'Fax'
'Home'
'ISDN'
'Modem'
'Msg'
'Pager'
'Video'
'Work')
Sorted = True
TabOrder = 11
OnChange = PhoneType3Change
end
object Phone3: TEdit
Left = 426
Top = 122
Width = 124
Height = 21
TabOrder = 12
OnChange = Phone3Change
end
object PhoneType4: TComboBox
Left = 325
Top = 146
Width = 97
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Cellular'
'Fax'
'Home'
'ISDN'
'Modem'
'Msg'
'Pager'
'Video'
'Work')
Sorted = True
TabOrder = 13
OnChange = PhoneType4Change
end
object Phone4: TEdit
Left = 426
Top = 146
Width = 124
Height = 21
TabOrder = 14
OnChange = Phone4Change
end
object MailingAddress: TCheckBox
Left = 96
Top = 153
Width = 95
Height = 17
Hint = 'Check If This Is The Mailing Address'
Caption = '&Mailing Address'
TabOrder = 6
OnClick = MailingAddressClick
end
object EmailType: TComboBox
Left = 8
Top = 184
Width = 66
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'E-Mail'
'E-Mail 2')
TabOrder = 15
OnChange = EmailTypeChange
end
object EMail: TEdit
Left = 78
Top = 184
Width = 190
Height = 21
TabOrder = 16
OnChange = EMailChange
end
object WebSite: TEdit
Left = 333
Top = 184
Width = 219
Height = 21
TabOrder = 17
Text = 'http://'
OnChange = WebSiteChange
end
object Notes: TMemo
Left = 8
Top = 215
Width = 546
Height = 68
MaxLength = 500
ScrollBars = ssVertical
TabOrder = 18
OnChange = NotesChange
end
object EditCatBut: TBitBtn
Left = 8
Top = 287
Width = 51
Height = 25
Caption = '&Cats....'
TabOrder = 19
OnClick = EditCatButClick
end
object Categories: TEdit
Left = 65
Top = 289
Width = 489
Height = 21
ReadOnly = True
TabOrder = 20
OnChange = CategoriesChange
end
end
object TabSheet2: TTabSheet
HelpContext = 96
Caption = '&Details'
object Label6: TLabel
Left = 10
Top = 18
Width = 58
Height = 13
Caption = '&Department:'
end
object Label7: TLabel
Left = 308
Top = 17
Width = 31
Height = 13
Alignment = taRightJustify
Caption = '&Office:'
end
object Label8: TLabel
Left = 16
Top = 46
Width = 52
Height = 13
Alignment = taRightJustify
Caption = '&Profession:'
end
object Bevel4: TBevel
Left = 11
Top = 75
Width = 533
Height = 13
Shape = bsTopLine
end
object Label16: TLabel
Left = 13
Top = 92
Width = 70
Height = 13
Caption = 'Business Card:'
end
object Department: TEdit
Left = 73
Top = 13
Width = 192
Height = 21
MaxLength = 35
TabOrder = 0
OnChange = DepartmentChange
end
object Office: TEdit
Left = 344
Top = 12
Width = 192
Height = 21
MaxLength = 35
TabOrder = 1
OnChange = OfficeChange
end
object Profession: TEdit
Left = 73
Top = 41
Width = 192
Height = 21
MaxLength = 35
TabOrder = 2
OnChange = ProfessionChange
end
object ScrollBox1: TScrollBox
Left = 103
Top = 112
Width = 340
Height = 168
TabOrder = 3
object Image1: TJPEGImage
Left = 0
Top = 0
Width = 336
Height = 164
Align = alClient
Stretch = True
NumOfColors = _256
DCTMethod = Integ
Dither = FS
FastProcessing = False
GrayScale = False
NoSmooth = False
OnePass = False
end
end
object AcquireLogoBut: TBitBtn
Left = 469
Top = 110
Width = 75
Height = 25
Hint = 'Acquire From Scaner'
Caption = '&Acquire'
Enabled = False
TabOrder = 4
OnClick = AcquireLogoButClick
Glyph.Data = {
72010000424D7201000000000000760000002800000016000000150000000100
040000000000FC00000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
EEEEEEEEEE00EEEEEEEEEEEE0EEEEEEEEE00EEEEEEEEEE00000EEEEEEE00EEEE
EEEEE02202200EEEEE00EEEEEEE002220222200EEE00EEEEEE02222202222220
0E00EEEE00222200000222222000EEE022222000F00002222000E002222000FF
FFF000022000022222000FFFFFFFF00000000222000FFFFFFFFFFFF000000220
000FFFFFFFFFFF000E00000A00A00000FFFF000EEE000AAAAA00AAAA000000EE
EE00E00AAAAA00AAAA00EEEEEE00EEE00AAAAA00AAAA00EEEE00EEEEE00AAAAA
0000AA00EE00EEEEEEE00A00EEEE00000E00EEEEEEEEE0EEEEEEEEEEEE00EEEE
EEEEEEEEEEEEEEEEEE00EEEEEEEEEEEEEEEEEEEEEE00}
end
object LoadLogoBut: TBitBtn
Left = 469
Top = 135
Width = 75
Height = 25
Hint = 'Load Logo Or Card From File'
Caption = '&Load'
TabOrder = 5
OnClick = LoadLogoButClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333000030000000000000333333000030788888888880333333000030F7
7777777780333333000030F99777777780333333000030FFFFFFFFFF70333333
0000300000000000003333330000333333333333333333330000333003333333
3333333300003330033333333333333300003330033333300000000300003330
03303330FFFFFF030000333008300330F4444F030000333800000030FFFFFF03
0000333380000030F4444F030000333333300330FFFFFF030000333333303330
F44F00030000333333333330FFFF003300003333333333300000033300003333
33333333333333330000}
end
object BitBtn3: TBitBtn
Left = 469
Top = 160
Width = 75
Height = 25
Caption = '&Save'
TabOrder = 6
OnClick = BitBtn3Click
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333000000000000033333337777777777
777333333307888888888803333333778888888888733333330F777777777803
33333378FFFFFFFFF8733333330F9977777778033333337899FFFFFFF8733333
330FFFFFFFFFF703333333788888888887733333330000000000000333333377
7777777777733333333333333333333333333333333333333333333333333333
3300333333333333333333773333333333333333300003333333333333333777
7333300000000333000000333777777773337777773330FFFFFF033333003333
3788888873333377333330F4444F033333003333378FFFF873333377333330FF
FFFF0333380033333788888873333877333330F4444F030000083333378FFFF8
73777778333330FFFFFF0300008333333788888873777783333330F44F000333
33333333378FF87773333333333330FFFF003333333333333788887733333333
3333300000033333333333333777777333333333333333333333333333333333
33333333333333333333}
NumGlyphs = 2
end
object DeleteLogoBut: TBitBtn
Left = 469
Top = 185
Width = 75
Height = 25
Hint = 'Delete Logo Or Card'
Caption = '&Delete'
TabOrder = 7
OnClick = DeleteLogoButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080
FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080
0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080
FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888
0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF
FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF}
NumGlyphs = 2
end
end
object TabSheet3: TTabSheet
HelpContext = 97
Caption = '&Encryption'
object Label9: TLabel
Left = 29
Top = 18
Width = 39
Height = 13
Alignment = taRightJustify
Caption = '&User ID:'
end
object Label10: TLabel
Left = 33
Top = 42
Width = 35
Height = 13
Alignment = taRightJustify
Caption = '&Key ID:'
end
object Bevel5: TBevel
Left = 11
Top = 75
Width = 533
Height = 13
Shape = bsTopLine
end
object UserId: TEdit
Left = 73
Top = 13
Width = 389
Height = 21
ReadOnly = True
TabOrder = 0
OnChange = UserIdChange
end
object KeyID: TEdit
Left = 73
Top = 37
Width = 389
Height = 21
ReadOnly = True
TabOrder = 1
OnChange = KeyIDChange
end
object GetKeyBut: TBitBtn
Left = 474
Top = 11
Width = 75
Height = 25
Hint = 'Extract Key From Key Ring'
Caption = '&Get Key'
Enabled = False
TabOrder = 2
OnClick = GetKeyButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
F000FFFFFFFFFFFFF888FFFFFFFFFFFFF0B0FFFFFFFFFFFFF8F8FFFFFFFFFFF0
00B0FFFFFFFFFFF88808FFFFFFFFFFF0B3B0FFFFFFFFFFF8F008FFFFFFFFF000
3B0FFFFFFFFFF888008FFFFFFFFF00B3B0FFFFFFFFFF880008FFFFFFFFFF0B3B
0FFFFFFFFFFF8F008FFFF8000F0003B0FFFFF88880888008FFFF80BBB00B3B0F
FFFF88000880008FFFFF0BBBBBB3B0FFFFFF8F00000008FFFFFF0BBBBBBB0FFF
FFFF8F00FF008FFFFFFF0BB003BB08FFFFFF8F088F0085FFFFFF88B003BBB0FF
FFFF8008800008FFFFFFF0BB33BBB0FFFFFFF800000008FFFFFFFF08BBBB08FF
FFFFFF80FFFF88FFFFFFFFF800008FFFFFFFFFF888888FFFFFFF}
NumGlyphs = 2
end
object KeyData: TMemo
Left = 26
Top = 86
Width = 503
Height = 193
Hint = 'Key Data'
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 3
WordWrap = False
end
object AddKeyBut: TBitBtn
Left = 454
Top = 285
Width = 75
Height = 25
Hint = 'Add Key To Key Ring'
Caption = '&Add Key'
Enabled = False
TabOrder = 4
OnClick = AddKeyButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
F000FFFFFFFFFFFFF888FFFFFFFFFFFFF0C0FFFFFFFFFFFFF8F8FFFFFFFFFFF0
00C0FFFFFFFFFFF88808FFFFFFFFFFF0C3C0FFFFFFFFFFF8F008FFFFFFFFF000
3C0FFFFFFFFFF888008FFFFFFFFF00C3C0FFFFFFFFFF880008FFFFFFFFFF0C3C
0FFFFFFFFFFF8F008FFFF8000F0003C0FFFFF88880888008FFFF80CCC00C3C0F
FFFF88000880008FFFFF0CCCCCC3C0FFFFFF8F00000008FFFFFF0CCCCCCC0FFF
FFFF8F00FF008FFFFFFF0CC003CC08FFFFFF8F088F0085FFFFFF88C003CCC0FF
FFFF8008800008FFFFFFF0CC33CCC0FFFFFFF800000008FFFFFFFF08CCCC08FF
FFFFFF80FFFF88FFFFFFFFF800008FFFFFFFFFF888888FFFFFFF}
NumGlyphs = 2
end
object RemoveKeyBut: TBitBtn
Left = 474
Top = 36
Width = 75
Height = 25
Hint = 'Remove Key From Address Book'
Caption = 'Remove'
Enabled = False
TabOrder = 5
OnClick = RemoveKeyButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080
FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080
0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080
FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888
0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF
FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF}
NumGlyphs = 2
end
end
object TabSheet4: TTabSheet
Caption = '&Mail Options'
object Bevel7: TBevel
Left = 9
Top = 137
Width = 533
Height = 13
Shape = bsTopLine
end
object GroupBox1: TGroupBox
Left = 73
Top = 11
Width = 230
Height = 116
Caption = 'Account Options'
TabOrder = 0
object Label11: TLabel
Left = 17
Top = 26
Width = 52
Height = 13
Caption = 'Account:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 10
Top = 57
Width = 59
Height = 13
Caption = '&Signature:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 26
Top = 88
Width = 43
Height = 13
Alignment = taRightJustify
Caption = '&V-Card:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Accounts: TComboBox
Left = 73
Top = 21
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 0
OnChange = AccountsChange
end
object SignatureBox: TComboBox
Left = 73
Top = 51
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 0
Sorted = True
TabOrder = 1
OnChange = SignatureBoxChange
end
object vCardList: TComboBox
Left = 73
Top = 82
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 0
Sorted = True
TabOrder = 2
OnChange = vCardListChange
end
end
object GroupBox2: TGroupBox
Left = 309
Top = 11
Width = 156
Height = 72
Caption = 'Send Options'
TabOrder = 1
object Label14: TLabel
Left = 11
Top = 21
Width = 48
Height = 13
Caption = 'Encoding:'
end
object Label15: TLabel
Left = 25
Top = 46
Width = 34
Height = 13
Caption = 'Priority:'
end
object EncodeBox: TComboBox
Left = 64
Top = 16
Width = 81
Height = 21
HelpContext = 66
Style = csDropDownList
Color = clWhite
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'Mime'
'UU')
ParentFont = False
TabOrder = 0
OnChange = EncodeBoxChange
end
object Priority: TComboBox
Left = 64
Top = 39
Width = 81
Height = 21
HelpContext = 65
Style = csDropDownList
Color = clWhite
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'Low'
'Normal'
'Urgent')
ParentFont = False
TabOrder = 1
OnChange = PriorityChange
end
end
object GroupBox3: TGroupBox
Left = 309
Top = 85
Width = 157
Height = 42
Caption = 'Message Options'
TabOrder = 2
object PlainTextCk: TCheckBox
Left = 6
Top = 17
Width = 77
Height = 17
Hint = 'No Formating When Saved'
HelpContext = 69
Caption = '&PlainText'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = PlainTextCkClick
end
object Receipt: TCheckBox
Left = 85
Top = 17
Width = 68
Height = 17
HelpContext = 67
Caption = '&Receipt'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = ReceiptClick
end
end
end
object TabSheet5: TTabSheet
HelpContext = 99
Caption = '&Picture'
object ScrollBox2: TScrollBox
Left = 13
Top = 17
Width = 436
Height = 277
TabOrder = 0
object Image2: TJPEGImage
Left = 0
Top = 0
Width = 432
Height = 273
Align = alClient
Stretch = True
NumOfColors = _256
DCTMethod = Integ
Dither = FS
FastProcessing = False
GrayScale = False
NoSmooth = False
OnePass = False
end
end
object AcquirePicBut: TBitBtn
Left = 469
Top = 15
Width = 75
Height = 25
Hint = 'Acquire From Scaner'
Caption = '&Acquire'
Enabled = False
TabOrder = 1
OnClick = AcquirePicButClick
Glyph.Data = {
72010000424D7201000000000000760000002800000016000000150000000100
040000000000FC00000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
EEEEEEEEEE00EEEEEEEEEEEE0EEEEEEEEE00EEEEEEEEEE00000EEEEEEE00EEEE
EEEEE02202200EEEEE00EEEEEEE002220222200EEE00EEEEEE02222202222220
0E00EEEE00222200000222222000EEE022222000F00002222000E002222000FF
FFF000022000022222000FFFFFFFF00000000222000FFFFFFFFFFFF000000220
000FFFFFFFFFFF000E00000A00A00000FFFF000EEE000AAAAA00AAAA000000EE
EE00E00AAAAA00AAAA00EEEEEE00EEE00AAAAA00AAAA00EEEE00EEEEE00AAAAA
0000AA00EE00EEEEEEE00A00EEEE00000E00EEEEEEEEE0EEEEEEEEEEEE00EEEE
EEEEEEEEEEEEEEEEEE00EEEEEEEEEEEEEEEEEEEEEE00}
end
object LoadPicBut: TBitBtn
Left = 469
Top = 40
Width = 75
Height = 25
Hint = 'Load Picture From File'
Caption = '&Load'
TabOrder = 2
OnClick = LoadPicButClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333000030000000000000333333000030788888888880333333000030F7
7777777780333333000030F99777777780333333000030FFFFFFFFFF70333333
0000300000000000003333330000333333333333333333330000333003333333
3333333300003330033333333333333300003330033333300000000300003330
03303330FFFFFF030000333008300330F4444F030000333800000030FFFFFF03
0000333380000030F4444F030000333333300330FFFFFF030000333333303330
F44F00030000333333333330FFFF003300003333333333300000033300003333
33333333333333330000}
end
object BitBtn6: TBitBtn
Left = 469
Top = 65
Width = 75
Height = 25
Caption = '&Save'
TabOrder = 3
OnClick = BitBtn6Click
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333000000000000033333337777777777
777333333307888888888803333333778888888888733333330F777777777803
33333378FFFFFFFFF8733333330F9977777778033333337899FFFFFFF8733333
330FFFFFFFFFF703333333788888888887733333330000000000000333333377
7777777777733333333333333333333333333333333333333333333333333333
3300333333333333333333773333333333333333300003333333333333333777
7333300000000333000000333777777773337777773330FFFFFF033333003333
3788888873333377333330F4444F033333003333378FFFF873333377333330FF
FFFF0333380033333788888873333877333330F4444F030000083333378FFFF8
73777778333330FFFFFF0300008333333788888873777783333330F44F000333
33333333378FF87773333333333330FFFF003333333333333788887733333333
3333300000033333333333333777777333333333333333333333333333333333
33333333333333333333}
NumGlyphs = 2
end
object DeletePicBut: TBitBtn
Left = 469
Top = 90
Width = 75
Height = 25
Hint = 'Delete Picture'
Caption = '&Delete'
TabOrder = 4
OnClick = DeletePicButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080
FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080
0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080
FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888
0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF
FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF}
NumGlyphs = 2
end
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 566
Height = 34
Align = alTop
BevelOuter = bvLowered
TabOrder = 1
object SaveBut: TSpeedButton
Left = 9
Top = 4
Width = 25
Height = 25
Hint = 'Save & Exit'
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333000000000000033333337777777777
777333333307888888888803333333778888888888733333330F777777777803
33333378FFFFFFFFF8733333330F9977777778033333337899FFFFFFF8733333
330FFFFFFFFFF703333333788888888887733333330000000000000333333377
7777777777733333333333333333333333333333333333333333333333333333
3300333333333333333333773333333333333333300003333333333333333777
7333300000000333000000333777777773337777773330FFFFFF033333003333
3788888873333377333330F4444F033333003333378FFFF873333377333330FF
FFFF0333380033333788888873333877333330F4444F030000083333378FFFF8
73777778333330FFFFFF0300008333333788888873777783333330F44F000333
33333333378FF87773333333333330FFFF003333333333333788887733333333
3333300000033333333333333777777333333333333333333333333333333333
33333333333333333333}
NumGlyphs = 2
OnClick = SaveButClick
end
object DeleteBut: TSpeedButton
Left = 61
Top = 4
Width = 25
Height = 25
Hint = 'Delete'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080
FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080
0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080
FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888
0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF
FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF}
NumGlyphs = 2
OnClick = DeleteButClick
end
object MesgBut: TSpeedButton
Left = 133
Top = 4
Width = 25
Height = 25
Hint = 'Send Message'
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD
DDDDDDD0DDDDDD000000DDDDDDDDDD0F0DDDDD000000DDDDDDDDD0FFF0DDDD00
0000DDDDDDDD0FFFFF0DDD000000DDDDDDD0F4FFF1F0DD000000DDDDDD0F4F4F
111F0D000000DDDDD0F4F4FFF1F0DD000000D0000FFF4FFFFF000D000000D030
FFFFFFFFF0030D000000D0730000000000330D000000D0707777777777030D00
0000D0077777777777700D000000D0000000000000000D000000DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
OnClick = MesgButClick
end
object DialBut: TSpeedButton
Left = 159
Top = 4
Width = 25
Height = 25
Hint = 'Dial Number'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
00FFFFF88888888888FFFFF09111111110FFFFF8F7F7F7F7F8FFF11097070707
10FFF888F878787878FF1FF09999999910FF8F787F7F7F7F78FF1FFF09707079
0FFF8FFF8F8787878FFF1000109999901000888888FFFFF88888801110000000
1110F8F778888888F778F099901111109990F87F787777787778FF0999999999
990FFF87FFFFFFFFFF8FFFF10000000001FFFFF88888888888FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
NumGlyphs = 2
OnClick = DialButClick
end
object WebBut: TSpeedButton
Left = 185
Top = 4
Width = 25
Height = 25
Hint = 'Go To Web Site'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444
5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4
335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4
C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4
CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C
C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333
CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC
5555555775FFFF77555555555C4CCC55555555555777775555550000}
NumGlyphs = 2
OnClick = WebButClick
end
object NewBut: TSpeedButton
Left = 35
Top = 4
Width = 25
Height = 25
Hint = 'Save & New'
Glyph.Data = {
30050000424D300500000000000036040000280000000E0000000E0000000100
080000000000E000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303000003030000000000000000000303030000030300FFFFFF
FFFFFFFF000303030000030300FF0404040404FF000303030000030300FFFFFF
FFFFFFFF000303030000030300FF0404040404FF000303030000030300FFFFFF
FFFFFFFF000303030000030300FF040404FFFFFF000303030000030300FFFFFF
FFFF0000000303030000030300FF0404FFFF00FF000303030000030300FFFFFF
FFFF000003030303000003030000000000000003030303030000030303030303
0303030303030303000003030303030303030303030303030000000000000000
0000000000000000000000000000000000000000}
OnClick = NewButClick
end
object PrintBut: TSpeedButton
Left = 87
Top = 4
Width = 25
Height = 25
Hint = 'Print'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF77333333333000000333333333377777733333330000}
NumGlyphs = 2
OnClick = PrintButClick
end
object ExitBut: TSpeedButton
Left = 535
Top = 4
Width = 25
Height = 25
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F33330000000000033333777777777773330000}
NumGlyphs = 2
OnClick = ExitButClick
end
object SpeedButton1: TSpeedButton
Left = 507
Top = 4
Width = 25
Height = 25
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
333333333777733333333333FBFBFB33333333333333333333330000}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
end
object MainMenu1: TMainMenu
Left = 295
Top = 2
object File1: TMenuItem
Caption = '&File'
ShortCut = 0
object SendMessage1: TMenuItem
Caption = 'Send &Message'
ShortCut = 0
end
object Call1: TMenuItem
Caption = '&Call'
ShortCut = 0
end
object WebSite1: TMenuItem
Caption = '&Web Site'
ShortCut = 0
OnClick = WebButClick
end
object N3: TMenuItem
Caption = '-'
ShortCut = 0
end
object New1: TMenuItem
Caption = '&New'
ShortCut = 0
end
object Save1: TMenuItem
Caption = '&Save'
ShortCut = 0
OnClick = SaveButClick
end
object SaveAs1: TMenuItem
Caption = '&Save As...'
ShortCut = 0
end
object Delete1: TMenuItem
Caption = '&Delete'
ShortCut = 0
OnClick = DeleteButClick
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object Import1: TMenuItem
Caption = '&Import'
ShortCut = 0
object VCard1: TMenuItem
Caption = '&V-Card'
ShortCut = 0
OnClick = VCard1Click
end
end
object Export1: TMenuItem
Caption = '&Export'
ShortCut = 0
object VCard2: TMenuItem
Caption = '&V-Card'
ShortCut = 0
OnClick = VCard2Click
end
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 0
OnClick = ExitButClick
end
end
object Help1: TMenuItem
Caption = '&Help'
ShortCut = 0
object Contents1: TMenuItem
Caption = '&Contents'
ShortCut = 0
end
end
end
object PGPInterface1: PGPInterface
Pseckeyring = 'secring.pgp'
Ppubkeyring = 'pubring.pgp'
PPrintableAscii = True
PWipeout = True
Action = encryptPlaintext
PNotBin = False
PScreenonly = False
PRecoverPlainTextFilename = False
TEXTMODE = True
ARMOR = True
ARMORLINES = 0
KEEPBINARY = False
COMPRESS = True
COMPLETES_NEEDED = 1
MARGINALS_NEEDED = 2
CERT_DEPTH = 4
SHOWPASS = False
TZFIX = 0
CLEARSIG = True
VERBOSE = Quiet
INTERACTIVE = False
Left = 325
Top = 1
end
object OpenDialog1: TOpenDialog
DefaultExt = 'vcf'
FileEditStyle = fsEdit
Filter = 'V-Card Files|*.vcf|All Files|*.*'
Options = [ofHideReadOnly, ofFileMustExist]
Title = 'Import V-Card'
Left = 362
Top = 1
end
object OpenDialog2: TOpenDialog
FileEditStyle = fsEdit
Filter =
'All Supported Images|*.gif;*.jpg;*.bmp|GIF|*.gif|JPG|*.jpg|BMP|*' +
'.bmp|WMF|*.wmf|SIF|*.sif|All Files|*.*'
Options = [ofHideReadOnly, ofFileMustExist]
Left = 389
Top = 1
end
object ZipMaster1: TZipMaster
Verbose = False
Trace = False
AddCompLevel = 9
AddOptions = []
ExtrOptions = []
Left = 419
Top = 1
end
object PrintDialog1: TPrintDialog
Left = 451
Top = 1
end
object SaveDialog: TSaveDialog
FileEditStyle = fsEdit
Filter =
'All Supported Files|*.gif;*.bmp|BMP Files|*.gif|BMP Files|*.bmp|' +
'All Files|*.*'
Options = [ofOverwritePrompt]
Title = 'Save Image File'
Left = 264
Top = 2
end
object SaveDialog1: TSaveDialog
DefaultExt = 'vcf'
FileEditStyle = fsEdit
FileName = 'vCard'
Filter = 'All V-Card Files|*.vcf|All Files|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly]
Title = 'Export V-Card'
Left = 234
Top = 2
end
end